PPPPPPPPPPPP 
PPPPPPPPPPPP 
PPPPPPPPPPPP 
PP PPP 


PP PPP 
PPPPPPPPPPPP 
PPPPPPPPPPPP 
PPPPPPPPPPPP 


AAAAAAAAA 

AAAAAAAAA 

AAAAAAAAA 
aka AAA 
AAA AaB 
AAA AAR 
AAA AAA 
AAA AAA 
AA AKA 
AAA AAA 
AAA AAA 
AAA AAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAA AAA 
AAA AAA 
AAA RAD 
AAA AAA 
AAA AAA 
AAA AAA 


RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRR 

RRR 

RRR 

RRR 

RRR 

RRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRR = RRR 
RRR = RRR 
RRR RRR 
RRR RRR 
RRR RRR 
RRR RRR 
RRR 

RRR 

RRR 


—— 


tt tt Ht tt St SH A HH A at HH Ht 
A a tH SH tH Ht 
tt tH SH Ht HH HHH 


LLLLLLLLLLLLLLL 
LLLLLLLLLLLLLLL 
LLLLLLLLLLLLLLL 


PA 


| T*FILE**1D**PASTIME 


— 


uw wud 
Sree) uu 
ad uu usu 
aud wus A 
usu usu Lh La 
usu wus usu 
uous uu uu 


OUTS S TSS ee eu ea rerve reer rurvereereeres) 
dd 


ee —e 
Od Od ad Od Od Od Od Od Od Od Od Dd 
fee hae hee ee ee hae ee ee ee ee hee ee eed 


i lemme — 
—e — 
eo 
ares 
-—— 
rae 
ed ed ed ed ed ed ed ee 
b&b &— 
-—— 
=o 
ae 
-—e— 
ww MMWw wn MNnNwW 
nw MMwnn nw mMunnw 
nn wn nw ww nw nn 
nw nn mn Wn nw nw 
nn wn nw mw nn nw 
nn wn wn nw ww nw 
wn ww nn ww nw wn 
nw mm nm wn ww nw 
MWMWwnwn wn WMNnw nw 
Muwnnwn wn YMnnwW nw 
<q<aaa 
22222322222 
<< <= ee = 
> > | << ses oe) 
< st ey a ee 
<< 4 ee a ee a ne at ng Og ee 
<=s < mae et 
=< « > « rs = 
222222222222 
aaaa a4 
aaaa ps ie 
aa aa | 
aa aa ad ad 
aa aa pet 
aa aa pa 
aa aa ailiedl 
soaaacaaraacaaa 33 
ed ed ad od ad od dh ad I I 


PASSTI - Return system time 16-SEP-1984 01:27:17 VAX/VMS Macro v04-00 Page 0. 
Table of contents 


tt $6 DECLARATIONS 
(3) 7 PASSTIME = Return system time 


mM 4 
ASSTIME - Return system time 16-SEP-1984 t 9: $f] pre 8 cro v04-00 Page 1 
1 66-SEP-1984 3:4 UPASRTL. SR REIP ASTIME .MAR; 1 (1) 


IME = Return system time 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


** a 
-* & 
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ad ® 
* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
i ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
:# INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
Se OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE TS HEREBY = 
;® TRANSFERRED. . 
*® ® 
;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ®* 
:*# CORPORATION. . 
*® ® 
:* * 
** ® 
:* & 
:* * 
se * 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


APPR RRR RRR RRRRRRRRRRSEL SEES SESE SLE L EASES ESE E RSE EERE ERE R RR ERE REE REE RR EES EY 
.o? 
; FACILITY: Pascal Language Support 
; 
; ABSTRACT: | 


This module contains PASSTIME which returns the current system 
time as an l1l-character string by reference. 


| 
; ENVIRONMENT: Runs at any access mode, AST Reentrant | 
AUTHOR: Steven B. Lionel, CREATION DATE: 6-Nov-1980 | 
; MODIFIED BY: 
: 1-001 - Original. SBL 6-Nov-1980 
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DECLARATIO 
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-SBTTL DECLARATIONS 

LIBRARY MACRO CALLS: 
NONE 

EXTERNAL DECLARATIONS: 


-DSABL GBL 
-EXTRN SYSSASCTIM 
: MACROS: 
NONE 
EQUATED SYMBOLS: 
NONE 
OWN STORAGE : 
NONE 
PSECT DECLARATIONS: 


~-PSECT _PASSCODE PIC, USR, CON, REL, LCL, SHR, 
EXE, RD, NOWRT, LONG 
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:; Force all external symbols to be declared 
; Convert binary time to ASCII string 
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a ~SBTTL PASSTIME = Return system time 
> FUNCTIONAL DESCRIPTION: 


MS Macro V04-00 
TL.S RC) PASTIME .MAR; 1 


This routine returns the current system time as hh:mm:ss.cc into 
an 11 character string passed by reference 


CALLING SEQUENCE: 

: CALL PASSTIME (Time_string.wt.r) 

; FORMAL PARAMETERS: 

; Time_string - ll-character string by reference 
; IMPLICIT INPUTS: 

; NONE 


; IMPLICIT OUTPUTS: 


Sondiiensiemeiemieuniomtamnamen me 6 ne Oe eth eB OH Pte ett tt try te eet 
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NONE 
; ROUTINE VALUE: 
! NONE 
: ; SIDE EFFECTS: 
1 NONE 
1 
: ‘=. 
: -ENTRY PASSTIME, “M<> 3; Entry point 
1 PUSHL  4(AP) ; Address of string 
1 PUSHL #11 3; Length of strin 
1 PUSHL #1 ; CVTFLG = 1 = Return time 
1 CLRL -(SP) 3; No TIMADR 
1 PUSHAQ -8(FP) ; Address of ay! descriptor 
1 CLRL -(SP) ; No returned TIMLEN 
1 CALLS #4, G*SYSSASCTIM ; Get time 
RET ; Return 
1 


; End of module PASSTIME 
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Symbol table 6-SEP-1984 11:53:48 (CPASRTL.SRCJPASTIME.MAR; 1 (3) 
PASSTIME 00000000 ae 01 
SYSSASCTIM cetteree 00 

gwwmemeeev8 2 seeeeceee + 

! ; Psect synopsis : 
PSECT name Allocation PSECT No. Attributes 

ABS 00000000 ( 0.) 00 ¢ OO.) NOPIC USR CON ABS LCL none NOEXE NORD NOWRT NOVEC BYTE 
PASSCODE 00000018 (¢ 24.) O1¢ 1.) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 
i£et6cmeesemennnmannnnnens 
! Performance indicators : 
Phase Page faults CPU Time Elapsed Time 
Initialization 10 00:00:00.11 00:00:01.70 
paanene processing 73 00:00:00.65 00:00:04.66 
s 1 64 00:00:00.37 00:00:01.54 

Synbol table sort 0 00:00:00.00 00:00:00.00 
Pass 2 36 00:00:00.25 00:00:01.61 
Symbol table output 2 00:00:00.01 00:00:00.01 
Psect synopsis output 1 00:00:00.02 00:00:00.02 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 188 00:00:01.41 00:00:09.54 


The working set Limit was 750 pages. 

1145 bytes (3 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space allocated to hold 2 non-local and 0 local symbols. 
119 source Lines were read in Pass 1, producing 11 object records in Pass 2 

0 pages of virtual memory were used to define 0 macros. 
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Macro Library name Macros defined 
“S$255SDUAZ8:(SYSLIBJSTARLET.MLB;20 0 ittttsSSS™S ee 
0 GETS were required to define 0 macros. 

There were no errors, warnings or information messages. 
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